%shrink_eyelink_data
% doenst matter .. must do this automatically when it save the data
%for file_num
%load
names = fieldnames(C)
for i= 1:length(names)
    eval(['test=C.' names{i} ';'])
    if isa(test,'double')
        if all(test==single(test));
            test=single(test)
            if ~any(round(test)-test)
                if min(test<0) % signed Negative
                    test=int32(test);
                    if max(test)<32767
                        test=int16(test);
                        if max(test)<127
                            test=int8(test);
                        end
                    end
                else % positive only
                    test=uint32(test);
                    if max(test)<32767
                        test=uint16(test);
                        if max(test)<127
                            test=uint8(test);
                        end
                    end                             
                end
            end %~any(round(test)-test)
        end %all(test==single(test));
        eval(['C.' names{i} '=test;'])               
    end%  isa(test,'double')
end% i= 1:length(names)


% 
% remove
% e_x: [1x113341 double]
% e_y: [1x113341 double]
% e_time: [1x113341 double]